/ Turnbull China Bikeride / Turnbull China Bikeride - Disc 2.iso / BARNET / ACORNET / OLD-VERSIONS / ACORNET020 / !Acornet_Utils_!AnUpgrade_!RunImage

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 20 40 25 3d 30 | 3a ee 20 85 20 f1 20 f6 |... @%=0|:. . . .|
|00000010| 24 22 20 61 74 20 6c 69 | 6e 65 20 22 9e 3a 20 e0 |$" at li|ne ".: .|
|00000020| 0d 00 14 04 0d 00 1e 35 | c8 9b 22 41 6e 55 70 67 |.......5|.."AnUpg|
|00000030| 72 61 64 65 4c 69 62 3a | 43 6f 72 65 22 3a f2 63 |radeLib:|Core":.c|
|00000040| 6f 72 65 5f 69 6e 69 74 | 28 22 41 6e 55 70 67 72 |ore_init|("AnUpgr|
|00000050| 61 64 65 4c 69 62 3a 22 | 29 0d 00 28 35 74 72 61 |adeLib:"|)..(5tra|
|00000060| 63 65 5f 66 69 6c 65 24 | 3d 22 3c 41 6e 55 70 67 |ce_file$|="<AnUpg|
|00000070| 72 61 64 65 24 44 69 72 | 3e 2e 74 72 61 63 65 22 |rade$Dir|>.trace"|
|00000080| 3a f4 50 52 4f 43 74 72 | 61 63 65 5f 6f 6e 0d 00 |:.PROCtr|ace_on..|
|00000090| 32 15 f2 6c 69 62 72 61 | 72 79 28 22 61 72 67 73 |2..libra|ry("args|
|000000a0| 22 29 3a 0d 00 3c 36 61 | 63 6f 72 6e 65 74 5f 64 |"):..<6a|cornet_d|
|000000b0| 69 72 24 3d 22 22 3a 20 | e7 20 61 72 67 63 25 3e |ir$="": |. argc%>|
|000000c0| 30 20 8c 20 61 63 6f 72 | 6e 65 74 5f 64 69 72 24 |0 . acor|net_dir$|
|000000d0| 3d 61 72 67 76 24 28 31 | 29 0d 00 46 14 f2 6c 69 |=argv$(1|)..F..li|
|000000e0| 62 72 61 72 79 28 22 77 | 69 6d 70 22 29 0d 00 50 |brary("w|imp")..P|
|000000f0| 13 f2 6c 69 62 72 61 72 | 79 28 22 64 6c 67 22 29 |..librar|y("dlg")|
|00000100| 0d 00 5a 14 f2 6c 69 62 | 72 61 72 79 28 22 61 6e |..Z..lib|rary("an|
|00000110| 75 70 22 29 0d 00 64 04 | 0d 00 6e 22 61 6e 75 70 |up")..d.|..n"anup|
|00000120| 5f 74 69 74 6c 65 24 3d | 22 41 63 6f 72 6e 65 74 |_title$=|"Acornet|
|00000130| 20 55 70 67 72 61 64 65 | 72 22 0d 00 78 21 f2 77 | Upgrade|r"..x!.w|
|00000140| 69 6d 70 5f 69 6e 69 74 | 69 61 6c 69 73 65 28 61 |imp_init|ialise(a|
|00000150| 6e 75 70 5f 74 69 74 6c | 65 24 29 0d 00 79 5a 69 |nup_titl|e$)..yZi|
|00000160| 6e 74 72 6f 24 3d 22 54 | 68 69 73 20 70 72 6f 67 |ntro$="T|his prog|
|00000170| 72 61 6d 20 61 6c 6c 6f | 77 73 20 79 6f 75 20 74 |ram allo|ws you t|
|00000180| 6f 20 75 70 67 72 61 64 | 65 20 74 68 65 20 63 6f |o upgrad|e the co|
|00000190| 6d 70 6f 6e 65 6e 74 20 | 61 70 70 6c 69 63 61 74 |mponent |applicat|
|000001a0| 69 6f 6e 73 20 77 69 74 | 68 69 6e 20 41 63 6f 72 |ions wit|hin Acor|
|000001b0| 6e 65 74 2e 22 0d 00 82 | 04 0d 00 8c 2b f4 20 4c |net."...|....+. L|
|000001c0| 6f 63 61 74 65 20 41 63 | 6f 72 6e 65 74 20 61 6e |ocate Ac|ornet an|
|000001d0| 64 20 69 74 73 20 63 6f | 6d 70 6f 6e 65 6e 74 20 |d its co|mponent |
|000001e0| 61 70 70 73 0d 00 96 17 | e7 20 61 63 6f 72 6e 65 |apps....|. acorne|
|000001f0| 74 5f 64 69 72 24 3d 22 | 22 20 8c 0d 00 a0 22 20 |t_dir$="|" ...." |
|00000200| 20 69 25 3d a4 61 6e 75 | 70 5f 61 73 6b 5f 61 63 | i%=.anu|p_ask_ac|
|00000210| 6f 72 6e 65 74 28 69 6e | 74 72 6f 24 29 0d 00 aa |ornet(in|tro$)...|
|00000220| 14 20 20 e7 20 69 25 3d | 30 20 8c 20 f2 65 78 69 |.  . i%=|0 . .exi|
|00000230| 74 0d 00 b4 05 cd 0d 00 | be 16 69 25 3d a4 61 6e |t.......|..i%=.an|
|00000240| 75 70 5f 66 69 6e 64 5f | 61 70 70 73 0d 00 bf 11 |up_find_|apps....|
|00000250| e7 20 69 25 3c 3e 31 20 | f2 65 78 69 74 0d 00 c8 |. i%<>1 |.exit...|
|00000260| 04 0d 00 d2 1f 21 62 75 | 66 25 3d 33 3a c8 99 22 |.....!bu|f%=3:.."|
|00000270| 4f 53 5f 57 6f 72 64 22 | 2c 31 34 2c 62 75 66 25 |OS_Word"|,14,buf%|
|00000280| 0d 00 dc 65 c8 99 22 4f | 53 5f 43 6f 6e 76 65 72 |...e.."O|S_Conver|
|00000290| 74 44 61 74 65 41 6e 64 | 54 69 6d 65 22 2c 62 75 |tDateAnd|Time",bu|
|000002a0| 66 25 2c 62 75 66 25 2b | 35 2c 31 30 30 2c 22 25 |f%,buf%+|5,100,"%|
|000002b0| 59 52 25 4d 4e 25 44 59 | 25 32 34 25 4d 49 25 53 |YR%MN%DY|%24%MI%S|
|000002c0| 45 22 20 b8 20 2c 65 6e | 64 25 3a 20 3f 65 6e 64 |E" . ,en|d%: ?end|
|000002d0| 25 3d 31 33 3a 20 64 61 | 74 65 24 3d 24 28 62 75 |%=13: da|te$=$(bu|
|000002e0| 66 25 2b 35 29 0d 00 e6 | 27 73 61 76 65 64 69 72 |f%+5)...|'savedir|
|000002f0| 24 3d 61 63 6f 72 6e 65 | 74 5f 64 69 72 24 2b 22 |$=acorne|t_dir$+"|
|00000300| 2e 4f 6c 64 2e 22 2b 64 | 61 74 65 24 0d 00 f0 04 |.Old."+d|ate$....|
|00000310| 0d 00 fa 05 f5 0d 01 04 | 15 20 20 69 25 3d a4 61 |........|.  i%=.a|
|00000320| 6e 75 70 5f 73 69 6e 67 | 6c 65 0d 01 0e 0a fd 20 |nup_sing|le..... |
|00000330| 69 25 3d 30 0d 01 18 09 | f2 65 78 69 74 0d 01 22 |i%=0....|.exit.."|
|00000340| 04 0d 01 2c 1b f4 20 55 | 70 67 72 61 64 69 6e 67 |...,.. U|pgrading|
|00000350| 20 73 69 6e 67 6c 65 20 | 61 70 70 73 0d 01 36 12 | single |apps..6.|
|00000360| dd 20 a4 61 6e 75 70 5f | 73 69 6e 67 6c 65 0d 01 |. .anup_|single..|
|00000370| 40 2f ea 20 69 25 2c 77 | 61 72 6e 69 6e 67 24 2c |@/. i%,w|arning$,|
|00000380| 69 6d 70 6f 72 74 24 2c | 61 70 70 24 2c 64 6f 6e |import$,|app$,don|
|00000390| 65 2c 64 65 73 74 64 69 | 72 24 2c 72 24 0d 01 4a |e,destdi|r$,r$..J|
|000003a0| 25 f2 64 6c 67 5f 62 65 | 67 69 6e 28 22 75 70 67 |%.dlg_be|gin("upg|
|000003b0| 72 61 64 65 22 2c 61 6e | 75 70 5f 74 69 74 6c 65 |rade",an|up_title|
|000003c0| 24 29 0d 01 4b 65 20 f2 | 64 6c 67 5f 74 65 78 74 |$)..Ke .|dlg_text|
|000003d0| 28 69 6e 74 72 6f 24 2b | 22 20 20 59 6f 75 20 75 |(intro$+|"  You u|
|000003e0| 73 65 20 69 74 20 61 74 | 20 79 6f 75 72 20 6f 77 |se it at| your ow|
|000003f0| 6e 20 72 69 73 6b 20 2d | 20 73 65 65 20 74 68 65 |n risk -| see the|
|00000400| 20 48 65 6c 70 20 69 6e | 66 6f 72 6d 61 74 69 6f | Help in|formatio|
|00000410| 6e 20 66 6f 72 20 6d 6f | 72 65 20 64 65 74 61 69 |n for mo|re detai|
|00000420| 6c 73 2e 22 2c 35 29 0d | 01 5e 74 20 f2 64 6c 67 |ls.",5).|.^t .dlg|
|00000430| 5f 74 65 78 74 28 22 44 | 72 61 67 20 74 68 65 20 |_text("D|rag the |
|00000440| 6e 65 77 20 76 65 72 73 | 69 6f 6e 20 6f 66 20 61 |new vers|ion of a|
|00000450| 6e 20 61 70 70 6c 69 63 | 61 74 69 6f 6e 20 69 6e |n applic|ation in|
|00000460| 74 6f 20 74 68 69 73 20 | 77 69 6e 64 6f 77 20 74 |to this |window t|
|00000470| 6f 20 62 65 20 75 70 67 | 72 61 64 65 64 20 77 69 |o be upg|raded wi|
|00000480| 74 68 69 6e 20 79 6f 75 | 72 20 41 63 6f 72 6e 65 |thin you|r Acorne|
|00000490| 74 20 73 75 69 74 65 22 | 2c 33 29 0d 01 68 1c 20 |t suite"|,3)..h. |
|000004a0| f2 64 6c 67 5f 69 6d 70 | 6f 72 74 28 22 69 6d 70 |.dlg_imp|ort("imp|
|000004b0| 6f 72 74 22 2c 32 29 0d | 01 72 26 20 f2 64 6c 67 |ort",2).|.r& .dlg|
|000004c0| 5f 64 69 73 70 6c 61 79 | 28 22 61 70 70 22 2c 22 |_display|("app","|
|000004d0| 41 70 70 6c 69 63 61 74 | 69 6f 6e 22 29 0d 01 7c |Applicat|ion")..||
|000004e0| 1e 20 f2 64 6c 67 5f 74 | 65 78 74 76 61 72 28 22 |. .dlg_t|extvar("|
|000004f0| 77 61 72 6e 69 6e 67 22 | 2c 32 29 0d 01 86 1c 20 |warning"|,2).... |
|00000500| f2 64 6c 67 5f 62 75 74 | 74 6f 6e 28 22 48 65 6c |.dlg_but|ton("Hel|
|00000510| 70 22 2c 31 2c a3 29 0d | 01 90 1a 20 f2 64 6c 67 |p",1,.).|... .dlg|
|00000520| 5f 62 75 74 74 6f 6e 28 | 22 4f 4b 22 2c 30 2c b9 |_button(|"OK",0,.|
|00000530| 29 0d 01 9a 0c f2 64 6c | 67 5f 65 6e 64 0d 01 a4 |).....dl|g_end...|
|00000540| 0a 64 6f 6e 65 3d a3 0d | 01 ae 05 f5 0d 01 b8 16 |.done=..|........|
|00000550| 20 20 c8 8e 20 a4 64 6c | 67 5f 66 69 6c 6c 69 6e |  .. .dl|g_fillin|
|00000560| 20 ca 0d 01 c2 0e 20 20 | c9 20 2d 31 3a 20 3d 30 | .....  |. -1: =0|
|00000570| 0d 01 cc 2d 20 20 c9 20 | 31 3a 20 ff 22 46 69 6c |...-  . |1: ."Fil|
|00000580| 65 72 5f 52 75 6e 20 3c | 41 6e 55 70 67 72 61 64 |er_Run <|AnUpgrad|
|00000590| 65 24 44 69 72 3e 2e 21 | 48 65 6c 70 22 0d 01 d6 |e$Dir>.!|Help"...|
|000005a0| 17 20 20 c9 20 32 3a 20 | 61 70 70 24 3d 69 6d 70 |.  . 2: |app$=imp|
|000005b0| 6f 72 74 24 0d 01 e0 0e | 20 20 20 20 c8 8e 20 b9 |ort$....|    .. .|
|000005c0| 20 ca 0d 01 ea 11 20 20 | 20 20 c9 20 61 70 70 24 | .....  |  . app$|
|000005d0| 3d 22 22 0d 01 f4 1d 20 | 20 20 20 c9 20 ac a4 66 |="".... |   . ..f|
|000005e0| 69 6c 65 5f 65 78 69 73 | 74 73 28 61 70 70 24 29 |ile_exis|ts(app$)|
|000005f0| 0d 01 fe 26 20 20 20 20 | 20 20 77 61 72 6e 69 6e |...&    |  warnin|
|00000600| 67 24 3d 22 4e 6f 20 73 | 75 63 68 20 64 69 72 65 |g$="No s|uch dire|
|00000610| 63 74 6f 72 79 22 0d 02 | 08 35 20 20 20 20 c9 20 |ctory"..|.5    . |
|00000620| a4 66 69 6c 65 5f 6f 62 | 6a 74 79 70 65 28 61 70 |.file_ob|jtype(ap|
|00000630| 70 24 29 3c 3e 32 2c c0 | a4 6c 65 61 66 28 61 70 |p$)<>2,.|.leaf(ap|
|00000640| 70 24 29 2c 31 29 3c 3e | 22 21 22 0d 02 26 31 20 |p$),1)<>|"!"..&1 |
|00000650| 20 20 20 20 20 77 61 72 | 6e 69 6e 67 24 3d 22 4e |     war|ning$="N|
|00000660| 6f 74 20 61 6e 20 61 70 | 70 6c 69 63 61 74 69 6f |ot an ap|plicatio|
|00000670| 6e 20 64 69 72 65 63 74 | 6f 72 79 22 0d 02 30 44 |n direct|ory"..0D|
|00000680| 20 20 20 20 c9 20 ac a4 | 68 61 73 68 5f 74 65 73 |    . ..|hash_tes|
|00000690| 74 67 65 74 28 61 6e 75 | 70 5f 68 61 73 68 25 2c |tget(anu|p_hash%,|
|000006a0| a4 73 74 72 6c 6f 77 65 | 72 28 a4 6c 65 61 66 28 |.strlowe|r(.leaf(|
|000006b0| 61 70 70 24 29 29 2c 64 | 65 73 74 64 69 72 24 29 |app$)),d|estdir$)|
|000006c0| 0d 02 3a 3a 20 20 20 20 | 20 20 77 61 72 6e 69 6e |..::    |  warnin|
|000006d0| 67 24 3d a4 6c 65 61 66 | 28 61 70 70 24 29 2b 22 |g$=.leaf|(app$)+"|
|000006e0| 20 6e 6f 74 20 66 6f 75 | 6e 64 20 77 69 74 68 69 | not fou|nd withi|
|000006f0| 6e 20 41 63 6f 72 6e 65 | 74 22 0d 02 44 09 20 20 |n Acorne|t"..D.  |
|00000700| 20 20 7f 0d 02 4e 15 20 | 20 20 20 20 20 77 61 72 |  ...N. |     war|
|00000710| 6e 69 6e 67 24 3d 22 22 | 0d 02 58 09 20 20 20 20 |ning$=""|..X.    |
|00000720| cb 0d 02 62 26 20 20 c9 | 20 30 3a 20 64 6f 6e 65 |...b&  .| 0: done|
|00000730| 3d 61 70 70 24 3c 3e 22 | 22 20 80 20 77 61 72 6e |=app$<>"|" . warn|
|00000740| 69 6e 67 24 3d 22 22 0d | 02 6c 07 20 20 cb 0d 02 |ing$="".|.l.  ...|
|00000750| 76 0a fd 20 64 6f 6e 65 | 0d 02 80 15 6c 65 61 66 |v.. done|....leaf|
|00000760| 24 3d a4 6c 65 61 66 28 | 61 70 70 24 29 0d 02 8a |$=.leaf(|app$)...|
|00000770| 44 72 24 3d a4 61 6e 75 | 70 5f 75 70 67 72 61 64 |Dr$=.anu|p_upgrad|
|00000780| 65 5f 61 70 70 28 64 65 | 73 74 64 69 72 24 2b 22 |e_app(de|stdir$+"|
|00000790| 2e 22 2b 6c 65 61 66 24 | 2c 61 70 70 24 2c 73 61 |."+leaf$|,app$,sa|
|000007a0| 76 65 64 69 72 24 2b 22 | 2e 22 2b 6c 65 61 66 24 |vedir$+"|."+leaf$|
|000007b0| 29 0d 02 94 14 e7 20 72 | 24 3c 3e 22 31 22 20 8c |)..... r|$<>"1" .|
|000007c0| 20 3d bb 72 24 0d 02 9e | 8d 69 25 3d a4 61 6e 75 | =.r$...|.i%=.anu|
|000007d0| 70 5f 77 61 72 6e 28 6c | 65 61 66 24 2b 22 20 75 |p_warn(l|eaf$+" u|
|000007e0| 70 67 72 61 64 65 64 22 | 2c 22 49 66 20 61 6e 79 |pgraded"|,"If any|
|000007f0| 20 66 69 6c 65 73 20 68 | 61 76 65 20 62 65 65 6e | files h|ave been|
|00000800| 20 6d 6f 64 69 66 69 65 | 64 20 62 79 20 74 68 65 | modifie|d by the|
|00000810| 20 75 70 67 72 61 64 65 | 2c 20 74 6f 20 6f 6c 64 | upgrade|, to old|
|00000820| 20 76 65 72 73 69 6f 6e | 73 20 68 61 76 65 20 62 | version|s have b|
|00000830| 65 65 6e 20 73 61 76 65 | 64 20 69 6e 20 21 41 63 |een save|d in !Ac|
|00000840| 6f 72 6e 65 74 2e 4f 6c | 64 2e 22 2b 64 61 74 65 |ornet.Ol|d."+date|
|00000850| 24 29 0d 02 a8 07 3d 69 | 25 0d ff                |$)....=i|%..     |
+--------+-------------------------+-------------------------+--------+--------+